25
How can I determine if the giving input object is a file, folder (sample 2)

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComFormatABC(Self,"`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"))
	Showln (ComFormatABC(Self,"`The ` + fname + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample"))
	Showln (ComFormatABC(Self,"`The ` + ffile + ` ` + ( ffolder = -1 ? `is a folder` : ( ffolder = +1 ? `is a file` : `is not found` ) ) + `.`","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo2.jpg"))
End_Procedure
24
Is there any function to get automatically the size of the file in KB, MB or GB

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Size: <b>` + fsizeF"
	Send ComEndUpdate
End_Procedure
23
How can I get the size of the file (GB)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Size: <b>` + ( (fsize/1024/1024/1024) format `` ) + ` GB(s)`"
	Send ComEndUpdate
End_Procedure
22
How can I get the size of the file (MB)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Size: <b>` + ( (fsize/1024/1024) format `` ) + ` MB(s)`"
	Send ComEndUpdate
End_Procedure
21
How can I get the size of the file (KB)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Size: <b>` + ( (fsize/1024) format `` ) + ` KB(s)`"
	Send ComEndUpdate
End_Procedure
20
How can I get the size of the file (bytes)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Size: <b>` + fsize + ` byte(s)`"
	Send ComEndUpdate
End_Procedure
19
How do I get the time the file was created, opened and modified

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComPadding to ""
	Set ComAlignment to OLEexAlignBottomCenter
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Created: <b><r>` + date(fcreated - bias/24/60) + `</b>` + `<br>` + `Modified: <b><r>` + date(fmodified - bias/24/60) + `</b>`+ `<br>` + `Last Opened: <r><b>` + date(fopened - bias/24/60) + `</b>`"
	Set ComSingleCaption to (ComCaption(Self))
	Send ComEndUpdate
End_Procedure
18
How can I display the date/time the file/folder was last opened

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Opened: <b>` + date(fopened - bias/24/60)"
	Set ComSingleCaption to (ComCaption(Self))
	Send ComEndUpdate
End_Procedure
17
How can I display the date/time the file/folder was last modified

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Modified: <b>` + date(fmodified - bias/24/60)"
	Send ComEndUpdate
End_Procedure
16
How can I display the date/time the file/folder was created

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Created: <b>` + longdate(date(fcreated - bias/24/60)) + ` ` + time(date(fcreated - bias/24/60))"
	Set ComSingleCaption to (ComCaption(Self))
	Send ComEndUpdate
End_Procedure
15
How can I get the alternate name of the file

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Alternate Name: <b>` + faname + `</b>, Name: <b>` + fname"
	Send ComEndUpdate
End_Procedure
14
How can I get the file's extension

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Extension: <b>` + fext"
	Send ComEndUpdate
End_Procedure
13
I've noticed the Caption property can use expressions, based on the file, the question is how can I use that feature without the Caption property

Procedure OnCreate
	Forward Send OnCreate
	Showln (ComFormatABC(Self,"ffile +` ` + ( len(fname) ? `this is a file/folder`: `not found`)","C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"))
End_Procedure
12
Can I determine if a file/thumbnail exists (sample 1)

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Send ComAddInputFiles "sss"
	Set ComCaption to "len(fname) ? `this is a file/folder` : `<fgcolor=FF0000><u>not found`"
	Send ComEndUpdate
End_Procedure
11
How can I display the name of the file

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "`Name: <b>` + fname"
	Send ComEndUpdate
End_Procedure
10
How can I display the full name of the file

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Set ComCaption to "ffile"
	Send ComEndUpdate
End_Procedure
9
How can I display the index/number of files/thumbnails

Procedure OnCreate
	Forward Send OnCreate
	Send ComBeginUpdate
	Set ComAcceptFolders to OLEexIncludeSubFilesOnly
	Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample"
	Set ComCaption to "(findex + 1) + ` of ` + fcount"
	Send ComEndUpdate
End_Procedure
8
How can I add more files ( sample 3 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
	Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\device.png"
End_Procedure
7
How can I add more files ( sample 2 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\logo.png\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\cordova.png"
End_Procedure
6
How can I add more files ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComInputFile to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg\r\nC:\Program Files\Exontrol\ExThumbnail\Sample\EndangeredAnimals.png"
End_Procedure
5
How do I clear the control's content
Procedure OnCreate
	Forward Send OnCreate
	Set ComInputFile to ""
End_Procedure
4
How can I add a file ( sample 3 )

Procedure OnCreate
	Forward Send OnCreate
	Send ComAddInputFiles "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
3
How can I add a file ( sample 2 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComInputFiles to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
2
How can I add a file ( sample 1 )

Procedure OnCreate
	Forward Send OnCreate
	Set ComInputFile to "C:\Program Files\Exontrol\ExThumbnail\Sample\elogo.jpg"
End_Procedure
1
How do I change the control's background color
Procedure OnCreate
	Forward Send OnCreate
	Set ComBackColor to (RGB(240,240,240))
End_Procedure